home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PRUS101 / FCHKOS.DOK < prev    next >
Text File  |  1994-12-19  |  5KB  |  132 lines
  1.                   ////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
  2.                        Dokumentation zu FIDO Unit FCHKOS
  3.                   \\\\\\\\\\\\\\\\\\\\////////////////////////
  4.  
  5.                                  Release 1.00
  6.                                  ^^^^^^^^^^^^
  7.  
  8.   ========================================================================
  9.   Autor: Matthias Tichy, 2:2440/210.14 @ Classic, Duesseldorf 15.08.1994
  10.                          2:2433/920.14 @ Lite
  11.   ========================================================================
  12.  
  13.      1. Print :
  14.      ------------
  15.         Die Unit FCHKOS.PAS stellt Funktionen und Prozeduren zur Verfuegung,
  16.         die helfen zu erkennen, welches Betriebssystem mit welcher Version
  17.         benutzt wird.
  18.         Dies ist eine Low Level Unit. Sie benoetigt keinerlei Routinen
  19.         anderer Units. Mit Ausnahme der in Turbo Pascal (6.0 oder hoeher)
  20.         Unit-Library TURBO.TPL enthaltenen Standard-Units.
  21.  
  22.      2. Kurbeschreibung:
  23.      -------------------
  24.  
  25.         NebenVersion ......................... enthaelt die Nebenversion
  26.         HauptVersion ......................... enthaelt die Hauptversion
  27.         Windows_Mode ......................... enthaelt den Windows-Modus
  28.  
  29.         isWindows ............................ laeuft Windows?
  30.         isOS2 ................................ laeuft OS/2?
  31.         isDesqView ........................... laeuft Desqview?
  32.  
  33.      3. Detaillierte Beschreibung:
  34.      -----------------------------
  35.  
  36.         ===============================================================
  37.         isWindows
  38.         ---------------------------------------------------------------
  39.         ERSTDATUM    ...  09.11.1994    LETZTE AeNDERUNG ...  09.11.1994
  40.  
  41.         MODIFIKATION ...
  42.         ---------------------------------------------------------------
  43.  
  44.         BESCHREIBUNG ...  Gibt zurueck, ob Windows laeuft.
  45.                           in den Variablen HauptVersion und NebenVersion
  46.                           findet man die Versionsnummern.
  47.                           In der Variable Windows_mode wird gespeichert, ob
  48.                           der enhanced oder der standard modus am laufen ist.
  49.  
  50.         DEKLARATION  ...  isWindows : boolean;
  51.  
  52.         PARAMETER    ...  keine
  53.  
  54.         ERGEBNIS     ...  true - Windows laeuft
  55.  
  56.         ===============================================================
  57.         isOS2
  58.         ---------------------------------------------------------------
  59.         ERSTDATUM    ...  15.11.1994    LETZTE AeNDERUNG ...  15.11.1994
  60.  
  61.         MODIFIKATION ...
  62.         ---------------------------------------------------------------
  63.  
  64.         BESCHREIBUNG ...  testet ob OS/2 laeuft.
  65.                           Version in Haupt- und NebenVersion
  66.  
  67.         DEKLARATION  ...  isOS2 : boolean;
  68.  
  69.         PARAMETER    ...  keine
  70.  
  71.         ERGEBNIS     ...  true - OS/2 laeuft.
  72.  
  73.         ===============================================================
  74.         isDesqView
  75.         ---------------------------------------------------------------
  76.         ERSTDATUM    ...  15.11.1994    LETZTE AeNDERUNG ...  15.11.1994
  77.  
  78.         MODIFIKATION ...
  79.         ---------------------------------------------------------------
  80.  
  81.         BESCHREIBUNG ...  testet, ob Desqview laeuft.
  82.                           Version in Haupt- und NebenVersion
  83.  
  84.         DEKLARATION  ...  isDesqView : boolean;
  85.  
  86.         PARAMETER    ...  keine
  87.  
  88.         ERGEBNIS     ...  true - DesqView laeuft.
  89.  
  90.  
  91.      4. Beispiele:
  92.      -------------
  93.         ===============================================================
  94.         isWindows, isOS2, isDesqView
  95.         ---------------------------------------------------------------
  96.  
  97.         begin
  98.           write('Betriebssystem : ');
  99.           if isWindows then
  100.             write('Windows ');
  101.           else
  102.             if isOS2 then
  103.               write('OS/2 ')
  104.             else
  105.               if isDesqview then
  106.                 write('DesqView ');
  107.           write(HauptVersion,'.',Nebenversion);
  108.           if isWindows then
  109.             begin
  110.               write(' im ');
  111.               case Windows_Mode of
  112.                 standard : write('standard');
  113.                 enhanced : write('enhanced');
  114.               end;
  115.               write(' Modus);
  116.             end;
  117.           writeln;
  118.         end;
  119.  
  120.      5. History:
  121.      -----------
  122.  
  123.         Neuerungen nach Release ...
  124.         ---------------------------
  125.         Noch nischts :-)
  126.  
  127.   ========================================================================
  128.  
  129.                  /////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
  130.                   Ende der Dokumentation zur FIDO Unit FCHKOS
  131.                  \\\\\\\\\\\\\\\\\\\\\////////////////////////
  132.